Aminet 12

home *** CD-ROM | disk | FTP | other *** search

/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / dev / lang / HeliOS3.lha / helios_demo_disk3 / source / IntuitionMenus.src < prev next >

Wrap

Text File | 1995-02-24 | 30.1 KB | 745 lines

( ------------------------------------------------ *** HeliOS Menu Intuition Menu Example *** ------------------------------------------------ This code is included mainly as an exercise in how to initialise data structures at run-time, which needs to be done in HeliOS if you allocate 32-bit addressed data structures within the 16-bit dictionary space. Usually it is better to allocate all Amiga data structures dynamically at run time rather than initialise them in the 16-bit dictionary space. Nevertheless, this code does at least give you an alternative approach which is OK for very simple applications. This HeliOS source code module contains: 1. A fully commented predefined Intuition menu data structure. 2. HeliOS run-time menu-initialisation code. 3. A fully functional menu command interpreter which can, if required, easily be integrated with the Helios gadget command interpreter. 4. A simple Demo program which opens a Workbench window and carries out menu commands. All the material can be readily modified to your own specific requirements and provides a simple means for dealing with all Intuition Menu programming tasks. To produce your own application all you need to do is alter the data structures to suit your particular requirements, then enter your own routines into the command vector table in place of the Demo commands. The run-time initialisation routines have been written in such a way as to be very easy to understand and modify, but this is not ideal in terms of speed and efficiency. Once you are confident about what is happening you can easily speed up this initialisation code if you wish. <<< *** IMPORTANT *** >>> WHY RUN-TIME INITIALISATION ? WHY NOT INITIALISE THE STRUCTURE AS IT IS DECLARED? You MUST dynamically set up all data structure links and pointers at run-time if you wish to be able to save the data structure as part of a precompiled HeliOS code module. This has to be done because your data structures will obvously not be reloaded into the same absolute position in memory as they occupied when you first created them. This means that all the absolute pointers in the structure must be re-initialised each time the module is loaded. ) \ ---------------------------------------------------------- \ "FORGET" all but core dictionary. \ ---------------------------------------------------------- FORGET **CORE** \ ---------------------------------------------------------- \ First we define all the Text Strings we require. \ (In this case we are using 3 Menus each with 4 items.) \ Edit the text strings below to your own requirements. \ ---------------------------------------------------------- CREATEL MENU1$ <$ Menu1text $ CREATEL MENU2$ <$ Menu2text $ CREATEL MENU3$ <$ Menu3text $ CREATEL MENU11$ <$ Menu11text$ CREATEL MENU12$ <$ Menu12text$ CREATEL MENU13$ <$ Menu13text$ CREATEL MENU14$ <$ Menu14text$ CREATEL MENU21$ <$ Menu21text$ CREATEL MENU22$ <$ Menu22text$ CREATEL MENU23$ <$ Menu23text$ CREATEL MENU24$ <$ Menu24text$ CREATEL MENU31$ <$ Menu31text$ CREATEL MENU32$ <$ Menu32text$ CREATEL MENU33$ <$ Menu33text$ CREATEL MENU34$ <$ Menu34text$ \ ---------------------------------------------------------- \ Now set up Menu data structures, unlinked at this stage. \ Note that we only need remember the address of the first. \ ---------------------------------------------------------- 0. DVARIABLEL MENU1 \ Next MENU 0 , \ LEDGE 0 , \ TEDGE 80 , \ WIDTH 12 , \ HEIGHT 1 , \ FLAGS 0. D, \ NAME 14-offset 0. D, \ ITEM1 18-offset 0 , \ SYS 0 , \ SYS 0 , \ SYS 0 , \ SYS 30 Bytes \ ---------------------------------------------------------- 0. D, \ Next MENU 80 , \ LEDGE 0 , \ TEDGE 80 , \ WIDTH 12 , \ HEIGHT 1 , \ FLAGS 0. D, \ NAME 0. D, \ ITEM1 0 , \ SYS 0 , \ SYS 0 , \ SYS 0 , \ SYS \ ---------------------------------------------------------- 0. D, \ Next MENU 160 , \ LEDGE 0 , \ TEDGE 80 , \ WIDTH 12 , \ HEIGHT 1 , \ FLAGS 0. D, \ NAME 0. D, \ ITEM1 0 , \ SYS 0 , \ SYS 0 , \ SYS 0 , \ SYS \ ---------------------------------------------------------- \ Etc etc ...... Add as many as you require.............. \ ---------------------------------------------------------- \ Then declare the total number of menus as MENU#........ \ In this case there are 3 Menus, so ........ 3 CONSTANT MENU# \ ---------------------------------------------------------- \ Now create the Menu Item data structures \ Again we need only to remember the address of the first items \ ---------------------------------------------------------- \ This is the 1st Menu Item list.................. \ ---------------------------------------------------------- 0. DVARIABLEL MENU11 \ Next ITEM ITEM11 0 , \ LEDGE 0 , \ TEDGE 200 , \ WIDTH 20 , \ HEIGHT HEX 56 DECIMAL , \ FLAGS 0. D, \ MEXC 0. D, \ FILL 18-offset 0. D, \ SELFILL ASCII 1 C, \ CMD 0 C, \ KLUDGE 0. D, \ SUBITEM 0 , \ SELNEXT 34 Bytes \ ---------------------------------------------------------- 1 C, \ FPEN ITEM11 TEXT 2 C, \ BPEN 1 C, \ MODE 0 C, \ KLUDGE 3 , \ LEDGE 2 , \ TEDGE 0. D, \ FONT 0. D, \ TEXT 0. D, \ NEXTTEXT 20 Bytes \ ---------------------------------------------------------- 0. D, \ Next ITEM ITEM12 0 , \ LEDGE 20 , \ TEDGE 200 , \ WIDTH 20 , \ HEIGHT HEX 56 DECIMAL , \ FLAGS 0. D, \ MEXC 0. D, \ FILL 0. D, \ SELFILL ASCII 2 C, \ CMD 0 C, \ KLUDGE 0. D, \ SUBITEM 0 , \ SELNEXT \ ---------------------------------------------------------- 1 C, \ FPEN ITEM12 TEXT 2 C, \ BPEN 1 C, \ MODE 0 C, \ KLUDGE 3 , \ LEDGE 2 , \ TEDGE 0. D, \ FONT 0. D, \ TEXT 0. D, \ NEXTTEXT \ ---------------------------------------------------------- 0. D, \ Next ITEM ITEM13 0 , \ LEDGE 40 , \ TEDGE 200 , \ WIDTH 20 , \ HEIGHT HEX 56 DECIMAL , \ FLAGS 0. D, \ MEXC 0. D, \ FILL 0. D, \ SELFILL ASCII 3 C, \ CMD 0 C, \ KLUDGE 0. D, \ SUBITEM 0 , \ SELNEXT \ ---------------------------------------------------------- 1 C, \ FPEN ITEM13 TEXT 2 C, \ BPEN 1 C, \ MODE 0 C, \ KLUDGE 3 , \ LEDGE 2 , \ TEDGE 0. D, \ FONT 0. D, \ TEXT 0. D, \ NEXTTEXT \ ---------------------------------------------------------- 0. D, \ Next ITEM ITEM14 0 , \ LEDGE 60 , \ TEDGE 200 , \ WIDTH 20 , \ HEIGHT HEX 56 DECIMAL , \ FLAGS 0. D, \ MEXC 0. D, \ FILL 0. D, \ SELFILL ASCII 4 C, \ CMD 0 C, \ KLUDGE 0. D, \ SUBITEM 0 , \ SELNEXT \ ---------------------------------------------------------- 1 C, \ FPEN ITEM14 TEXT 2 C, \ BPEN 1 C, \ MODE 0 C, \ KLUDGE 3 , \ LEDGE 2 , \ TEDGE 0. D, \ FONT 0. D, \ TEXT 0. D, \ NEXTTEXT \ ---------------------------------------------------------- \ Etc etc ...... Add as many as you require.............. \ ---------------------------------------------------------- \ Then declare the total number of menu items as MENU1ITEM#.. \ In this case there are 4 Menu1 Items, so ........ 4 CONSTANT MENU1ITEM# \ ---------------------------------------------------------- \ Next the 2nd Menu Items.............. \ ---------------------------------------------------------- 0. DVARIABLEL MENU21 \ Next ITEM ITEM21 0 , \ LEDGE 0 , \ TEDGE 200 , \ WIDTH 20 , \ HEIGHT HEX 56 DECIMAL , \ FLAGS 0. D, \ MEXC 0. D, \ FILL 0. D, \ SELFILL ASCII 5 C, \ CMD 0 C, \ KLUDGE 0. D, \ SUBITEM 0 , \ SELNEXT \ ---------------------------------------------------------- 1 C, \ FPEN ITEM21 TEXT 2 C, \ BPEN 1 C, \ MODE 0 C, \ KLUDGE 3 , \ LEDGE 2 , \ TEDGE 0. D, \ FONT 0. D, \ TEXT 0. D, \ NEXTTEXT \ ---------------------------------------------------------- 0. D, \ Next ITEM ITEM22 0 , \ LEDGE 20 , \ TEDGE 200 , \ WIDTH 20 , \ HEIGHT HEX 56 DECIMAL , \ FLAGS 0. D, \ MEXC 0. D, \ FILL 0. D, \ SELFILL ASCII 6 C, \ CMD 0 C, \ KLUDGE 0. D, \ SUBITEM 0 , \ SELNEXT \ ---------------------------------------------------------- 1 C, \ FPEN ITEM22 TEXT 2 C, \ BPEN 1 C, \ MODE 0 C, \ KLUDGE 3 , \ LEDGE 2 , \ TEDGE 0. D, \ FONT 0. D, \ TEXT 0. D, \ NEXTTEXT \ ---------------------------------------------------------- 0. D, \ Next ITEM ITEM23 0 , \ LEDGE 40 , \ TEDGE 200 , \ WIDTH 20 , \ HEIGHT HEX 56 DECIMAL , \ FLAGS 0. D, \ MEXC 0. D, \ FILL 0. D, \ SELFILL ASCII 7 C, \ CMD 0 C, \ KLUDGE 0. D, \ SUBITEM 0 , \ SELNEXT \ ---------------------------------------------------------- 1 C, \ FPEN ITEM23 TEXT 2 C, \ BPEN 1 C, \ MODE 0 C, \ KLUDGE 3 , \ LEDGE 2 , \ TEDGE 0. D, \ FONT 0. D, \ TEXT 0. D, \ NEXTTEXT \ ---------------------------------------------------------- 0. D, \ Next ITEM ITEM24 0 , \ LEDGE 60 , \ TEDGE 200 , \ WIDTH 20 , \ HEIGHT HEX 56 DECIMAL , \ FLAGS 0. D, \ MEXC 0. D, \ FILL 0. D, \ SELFILL ASCII 8 C, \ CMD 0 C, \ KLUDGE 0. D, \ SUBITEM 0 , \ SELNEXT \ ---------------------------------------------------------- 1 C, \ FPEN ITEM24 TEXT 2 C, \ BPEN 1 C, \ MODE 0 C, \ KLUDGE 3 , \ LEDGE 2 , \ TEDGE 0. D, \ FONT 0. D, \ TEXT 0. D, \ NEXTTEXT \ ---------------------------------------------------------- \ Etc etc ...... Add as many as you require.............. \ ---------------------------------------------------------- \ Then declare the total number of menu items as MENU2ITEM#.. \ In this case there are 4 Menu2 Items, so ........ 4 CONSTANT MENU2ITEM# \ ---------------------------------------------------------- \ Now the 3rd Menu......................... \ ---------------------------------------------------------- 0. DVARIABLEL MENU31 \ Next ITEM ITEM31 0 , \ LEDGE 0 , \ TEDGE 200 , \ WIDTH 20 , \ HEIGHT HEX 56 DECIMAL , \ FLAGS 0. D, \ MEXC 0. D, \ FILL 0. D, \ SELFILL ASCII A C, \ CMD 0 C, \ KLUDGE 0. D, \ SUBITEM 0 , \ SELNEXT \ ---------------------------------------------------------- 1 C, \ FPEN ITEM31 TEXT 2 C, \ BPEN 1 C, \ MODE 0 C, \ KLUDGE 3 , \ LEDGE 2 , \ TEDGE 0. D, \ FONT 0. D, \ TEXT 0. D, \ NEXTTEXT \ ---------------------------------------------------------- 0. D, \ Next ITEM ITEM32 0 , \ LEDGE 20 , \ TEDGE 200 , \ WIDTH 20 , \ HEIGHT HEX 56 DECIMAL , \ FLAGS 0. D, \ MEXC 0. D, \ FILL 0. D, \ SELFILL ASCII B C, \ CMD 0 C, \ KLUDGE 0. D, \ SUBITEM 0 , \ SELNEXT \ ---------------------------------------------------------- 1 C, \ FPEN ITEM32 TEXT 2 C, \ BPEN 1 C, \ MODE 0 C, \ KLUDGE 3 , \ LEDGE 2 , \ TEDGE 0. D, \ FONT 0. D, \ TEXT 0. D, \ NEXTTEXT \ ---------------------------------------------------------- 0. D, \ Next ITEM ITEM33 0 , \ LEDGE 40 , \ TEDGE 200 , \ WIDTH 20 , \ HEIGHT HEX 56 DECIMAL , \ FLAGS 0. D, \ MEXC 0. D, \ FILL 0. D, \ SELFILL ASCII C C, \ CMD 0 C, \ KLUDGE 0. D, \ SUBITEM 0 , \ SELNEXT \ ---------------------------------------------------------- 1 C, \ FPEN ITEM33 TEXT 2 C, \ BPEN 1 C, \ MODE 0 C, \ KLUDGE 3 , \ LEDGE 2 , \ TEDGE 0. D, \ FONT 0. D, \ TEXT 0. D, \ NEXTTEXT \ ---------------------------------------------------------- 0. D, \ Next ITEM ITEM34 0 , \ LEDGE 60 , \ TEDGE 200 , \ WIDTH 20 , \ HEIGHT HEX 56 DECIMAL , \ FLAGS 0. D, \ MEXC 0. D, \ FILL 0. D, \ SELFILL ASCII D C, \ CMD 0 C, \ KLUDGE 0. D, \ SUBITEM 0 , \ SELNEXT \ ---------------------------------------------------------- 1 C, \ FPEN ITEM34 TEXT 2 C, \ BPEN 1 C, \ MODE 0 C, \ KLUDGE 3 , \ LEDGE 2 , \ TEDGE 0. D, \ FONT 0. D, \ TEXT 0. D, \ NEXTTEXT \ ---------------------------------------------------------- \ Etc etc ...... Add as many as you require.............. \ ---------------------------------------------------------- \ Then declare the total number of menu items as MENU3ITEM#.. \ In this case there are 4 Menu3 Items, so ........ 4 CONSTANT MENU3ITEM# \ ---------------------------------------------------------- \ Now create words to reference the various structures \ ---------------------------------------------------------- : MENU \ Menunumber(w) - - - Structure Address(l) 1- 30 * \ Offset into list of structures 0 \ Make into 32-bit number MENU1 D+ ; \ Add to start address : MENUITEM \ ItemStructure(l), Itemnumber(w) - - - Structure Address(l) 1- 54 * 0 D+ ; \ ---------------------------------------------------------- \ And now a word to initialise the menus......... \ ---------------------------------------------------------- : INITMENUS MENU3$ MENU2$ MENU1$ MENU# 0 DO I 1+ MENU 14. D+ D!L \ Set name text LOOP MENU# 0 \ Set Menu Links DO I 1+ MENU# < IF I 2+ MENU I 1+ MENU D!L THEN LOOP MENU31 MENU21 MENU11 MENU# 0 DO 1 MENUITEM I 1+ MENU 18. D+ D!L \ Set 1st Item Pointer LOOP MENU14$ MENU13$ MENU12$ MENU11$ \ Set Menu 1 MENU11 MENU1ITEM# 0 DO I 1+ MENU1ITEM# < IF \ Set Item Links DDUP I 2+ MENUITEM DOVER I 1+ MENUITEM D!L THEN DDUP I 1+ MENUITEM 18. D+ \ Set IntuiText Pointers DDUP 16. DUNDER+ D!L DSWAP DOVER I 1+ MENUITEM 46. D+ D!L \ Set Text Pointers LOOP DDROP MENU24$ MENU23$ MENU22$ MENU21$ \ Set Menu 2 MENU21 MENU2ITEM# 0 DO I 1+ MENU2ITEM# < IF \ Set Item Links DDUP I 2+ MENUITEM DOVER I 1+ MENUITEM D!L THEN DDUP I 1+ MENUITEM 18. D+ \ Set IntuiText Pointers DDUP 16. DUNDER+ D!L DSWAP DOVER I 1+ MENUITEM 46. D+ D!L \ Set Text Pointers LOOP DDROP MENU34$ MENU33$ MENU32$ MENU31$ \ Set Menu 3 MENU31 MENU3ITEM# 0 DO I 1+ MENU3ITEM# < IF \ Set Item Links DDUP I 2+ MENUITEM DOVER I 1+ MENUITEM D!L THEN DDUP I 1+ MENUITEM 18. D+ \ Set IntuiText Pointers DDUP 16. DUNDER+ D!L DSWAP DOVER I 1+ MENUITEM 46. D+ D!L \ Set Text Pointers LOOP DDROP ; \ ---------------------------------------------------------- \ A set of dummy Menu commands \ ---------------------------------------------------------- : M11 4 11 CURPUT ." MENU11ACTION" ; : M12 4 11 CURPUT ." MENU12ACTION" ; : M13 4 11 CURPUT ." MENU13ACTION" ; : M14 4 11 CURPUT ." MENU14ACTION" ; : M21 4 14 CURPUT ." MENU21ACTION" ; : M22 4 14 CURPUT ." MENU22ACTION" ; : M23 4 14 CURPUT ." MENU23ACTION" ; : M24 4 14 CURPUT ." MENU24ACTION" ; : M31 4 17 CURPUT ." MENU31ACTION" ; : M32 4 17 CURPUT ." MENU32ACTION" ; : M33 4 17 CURPUT ." MENU33ACTION" ; : M34 4 17 CURPUT ." MENU34ACTION" ; \ ---------------------------------------------------------- \ The Menu Command Interpreter Vector Table \ ---------------------------------------------------------- \ See the HeliOS Dictionary and Amiga Intuition Reference Manual \ for full definition and description of the Menu Number fields. \ Very briefly, these are as follows : \ Menunumber in Binary Format: 1111100000100000 \ Menu number bits : ^^^^^ = Menu 1 \ Menu Item number bits : ^^^^^^ = Menu Item 2 \ Menu Sub-Item number bits : ^^^^^ = Menu Sub-Item Null \ In other words: ALL BITS SET IN FIELD = NULL FIELD \ and NO BITS SET IN FIELD = 1st item \ You can replace the commands M11.......M34 defined above and used \ in the Menuvector table below with any routines of your own. BIN 1111100000000000 VARIABLE MENUVECTORS \ Menu 1 Item 1 ' M11 CFA , 1111100000100000 , \ Menu 1 Item 2 ' M12 CFA , 1111100001000000 , \ Menu 1 Item 3 ' M13 CFA , 1111100001100000 , \ Menu 1 Item 4 ' M14 CFA , 1111100000000001 , \ Menu 2 Item 1 ' M21 CFA , 1111100000100001 , \ Menu 2 Item 2 ' M22 CFA , 1111100001000001 , \ Menu 2 Item 3 ' M23 CFA , 1111100001100001 , \ Menu 2 Item 4 ' M24 CFA , 1111100000000010 , \ Menu 3 Item 1 ' M31 CFA , 1111100000100010 , \ Menu 3 Item 2 ' M32 CFA , 1111100001000010 , \ Menu 3 Item 3 ' M33 CFA , 1111100001100010 , \ Menu 3 Item 4 ' M34 CFA , DECIMAL HERE 255 , ' NOOP CFA , CONSTANT MENUEND \ ---------------------------------------------------------- \ The Menu Command Interpreter \ ---------------------------------------------------------- : MENUCHECK MENUEND MENUVECTORS DO I DDUP @ = IF 2+ LEAP THEN DROP 4 +LOOP MENUEND 2+ ; : MENUACTION DROP MENUNUMBER MENUCHECK @EXECUTE ; \ ---------------------------------------------------------- \ Install and Remove Menus \ ---------------------------------------------------------- $CONSTANT WINTITLE $MENUTEST$ \ Window Title for Demo window 0. DVARIABLE WINDOW1 \ DVARIABLE to contain your Window handle : SETMENU \ Install Menus WINDOW1 D@ 0 AREG D! MENU1 1 AREG D! INTUBASE -264 LIBRARY ; : CLEARMENU \ Remove Menus WINDOW1 D@ 0 AREG D! INTUBASE -54 LIBRARY ; \ --------------------- \ Demonstration Program \ --------------------- : TESTMENU TIMEOFF \ Switch off auto-time display INITMENUS \ Initialise Menu structures STDWINDOW \ Set up for standard Workbench window DRAGGAD \ Include Drag gadget DEPTHGAD \ Include Depth gadget CLOSEGAD \ Include Close gadget.......... WINDOWCLOSE 0! \ ..and set up Window Close Gadget Flag WINTITLE \ Window Title Text String 0 0 400 190 \ Window Dimensions 2 0 \ 2-Bitplanes, no Superbitmap Window OPENWINDOW \ Open the new Window DFLAG0= IF \ ??? Window failed to open ??? DDROP \ We have no window, so finish ELSE DTRIP \ Window opened OK, so WINDOW1 D! \ Store window handle MAKEINWINDOW \ Make Inputwindow MAKEOUTWINDOW \ Make Outputwindow CUROFF \ Switch off cursor EVENTON \ Switch on Event Reporting SETMENU \ Install Menus into Window WBENCHTOFRONT \ Display Workbench CR ." Hello!" \ Hailing Text CR CR ." Try all the menu selections." CR CR ." Press <Esc> to exit this Demo," CR CR ." or Click on the window CLOSE Gadget." BEGIN \ Input processing loop KEY DUP 1254 = IF MENUACTION THEN 27 = \ Check for <Esc> WINDOWCLOSE @ OR \ or Window Close Gadget UNTIL \ Now Clear-up and Exit CLEARMENU \ Remove Menus FORTHOUTWINDOW \ Reset HeliOS Output FORTHINWINDOW \ Reset HeliOS Input WINDOW1 D@ CLOSEWINDOW \ Close Window THEN TIMEON \ Switch on auto-time display WBENCHTOBACK \ Move Workbench to back ; TESTMENU \ --------------------------------------------------------------------------- \ The End \ ---------------------------------------------------------------------------